home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Magazine / Online / QMail / source / subgetopt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-15  |  1.6 KB  |  80 lines
  1. /* subgetopt.c, subgetopt.h: (yet another) improved getopt clone, inner layer
  2. D. J. Bernstein, djb@pobox.com.
  3. No dependencies.
  4. No system requirements.
  5. 19970228: Cleanups.
  6. 931129: Adapted from getopt.c.
  7. No known patent problems.
  8.  
  9. Documentation in subgetopt.3.
  10. */
  11.  
  12. #define SUBGETOPTNOSHORT
  13. #include "subgetopt.h"
  14.  
  15. #define sgopt subgetopt
  16. #define optind subgetoptind
  17. #define optpos subgetoptpos
  18. #define optarg subgetoptarg
  19. #define optproblem subgetoptproblem
  20. #define optdone subgetoptdone
  21.  
  22. int optind = 1;
  23. int optpos = 0;
  24. char *optarg = 0;
  25. int optproblem = 0;
  26. int optdone = SUBGETOPTDONE;
  27.  
  28. int sgopt(argc,argv,opts)
  29. int argc;
  30. char **argv;
  31. char *opts;
  32. {
  33.   int c;
  34.   char *s;
  35.  
  36.   optarg = 0;
  37.   if (!argv || (optind >= argc) || !argv[optind]) return optdone;
  38.   if (optpos && !argv[optind][optpos]) {
  39.     ++optind;
  40.     optpos = 0;
  41.     if ((optind >= argc) || !argv[optind]) return optdone;
  42.   }
  43.   if (!optpos) {
  44.     if (argv[optind][0] != '-') return optdone;
  45.     ++optpos;
  46.     c = argv[optind][1];
  47.     if ((c == '-') || (c == 0)) {
  48.       if (c) ++optind;
  49.       optpos = 0;
  50.       return optdone;
  51.     }
  52.     /* otherwise c is reassigned below */
  53.   }
  54.   c = argv[optind][optpos];
  55.   ++optpos;
  56.   s = opts;
  57.   while (*s) {
  58.     if (c == *s) {
  59.       if (s[1] == ':') {
  60.         optarg = argv[optind] + optpos;
  61.         ++optind;
  62.         optpos = 0;
  63.         if (!*optarg) {
  64.           optarg = argv[optind];
  65.           if ((optind >= argc) || !optarg) { /* argument past end */
  66.             optproblem = c;
  67.             return '?';
  68.           }
  69.       ++optind;
  70.         }
  71.       }
  72.       return c;
  73.     }
  74.     ++s;
  75.     if (*s == ':') ++s;
  76.   }
  77.   optproblem = c;
  78.   return '?';
  79. }
  80.